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; 1 1 MODULE CHKDMO ‘LANGUAGE (84 1S8 38) ’ 

: § § ENT = *v04-000' 

3 é 04 1 BEGIN 

: $ : i eeeeerrerrrerererrenreeereereerteeeeeerertreereeereeneeeerenereeeeereneeeret 
; '® 

; 8 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
3 4 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 + + : :; ALL RIGHTS RESERVED. * 
> 4 y 4 
; if i 1 !* THIS SOFTWARE IS S\ANISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 1 1 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 °G 14 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 16 3018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 7 SEA ; :* TRANSFERRED. pe 
; 'e e 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $3 gos) : CORPORATION. . 
HY ‘® ® 
3 38 0098 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 4 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
ae. Bose 1 Ie * 
; $8 0026 1 !* ® 
§ bo56 4 SRO R EER AAA AAAAREAA AREER AEAE RAAT ARERR TERE REREAAAREREHAAAAEAARE Ee 
:- = 0028 1 

; 9 594 1 lee 

; $0 00 1! 

; 1 0031 1 =! FACILITY: VAS/VMS MTAACP 

$ Mi 0035 1! 

; 0035 1 ! ABSTRACT: 

i i 0034 1! 

; HH ste } This routine dismounts the volume in use if it should be. 

; 3? 0037 1 | ENVIRONMENT : 

; 39 0039 1: VAX/VMS operating system, including privileged system services 

; 60 sre 1} and internal exec routines. 

: 0042 1 

Bea he 

3; «45 065 1 | 

; ri Boe? : : AUTHOR: Andrew C. Goldstein, CREATION DATE: 29-Apr-1977 17:19 

; 48 0048 1 i MODIFIED BY: 

; 50 0050 1} V03-010 HH0049 Hai Huang 16-Aug-1984 

pw i B22) ' Call IOCSDALLOC_DMT to handle deallocation on dismount. 

; 34 34 1! v03-009 MMD0324 Meg Dumont 15-Aug-1984 14:37 

: 34 54 1 Fix to index off the UCBLIST with the NVOL rather than. 

3 5 a. ae the volume number from the MVL. The MVL may not be valid 

: 2$ p29 ! thus we shouldn't be using it. 
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v03-008 ACG0441 Andrew C. Goldstein 13-Aug-1984 12:12 
Issue IO0$_AVAILABLE function after [O$_UNLOAD to release 
drive correctly. 


VO3-007 ACG0441 Andrew C. Goldstein, 11-Aug-1984 16:58 
Rework dismount interlocking to eliminate races and 
aol tse procesing. Clear device lock value block on 

mount. 


VO03-006 MMD0289 neg Dumont, 10-Apr-1984 14:15 
Fix to use IO$_AVAILABLE instead of setting to SYNC 
IPL and clearing the UCB VALID bit. Also fixed the 
DALLOC DEV Linkage to indicate that R3 is trashed across 
the call. Remove ony knowledge inside this routine 
of setting to IPLS$_SYNC. 


vO3-005 LMP0221 L. Mark Pilant, 28-Mar-1984 13:04 
change UCBSL_OWNUIC to ORBSL_OWNER and UCB$W_VPROT to 
ORBSW_PROT. 

V03-004 MMD0281 Meg Dumont, 23-Mar-1984 10:29 
Fix to pass address of UCB on IOCSDALLC_DEV call. 

v03-003 ACG0399 Andrew C. Goldstein, 27-Feb-1984 13:24 
Rename EXESUNLOCK_DEV to IOCSUNLOCK_DEV 


vO3-002 TCM0001 iryer C. Matthews 10-May-1983 
Call routine EXESDALLOC_DEV to correctly do device 
deallocation in a cluster. 


v03-001 S$TJ0263 Steven T. Jeffreys 22-Apr-1982 
Do not mung the device allocation access mode. 


v02-010 DMWw00035 David Michael Walp 15-Sep-1981 
Fixed Cancel 1/0 vs Dismount race condition 


vO2-009 DMW00026 David Michael Walp 20-Jul-1981 
Changes to RET_FREE_PAGE, new parameter to say 
that the PO space will should be contracted. 


v02-008 DMw00011 David Michael Walp 14-Mar-1981 
Changed calculation of CCB address to GET_CCB 
V02-007 REFORMAT Maria del C. Nasr 30-Jun-1980 


> 
a 


LIBRARY ‘SYSSLIBRARY:L1B.L32°; 
REQUIRE ‘SRC$:MTADEF .B32'; 


i Part of this routine use to run at IPL$_SYNCH, however we will still lock 
: the code down. 


LOCK_CODE; 
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; 118 138 ! GLOBAL ROUTINE CHECK_DISMOUNT (UCB) : COMMON_CALL NOVALUE = 

: 11 1 'ee 

; 119 1 i 

; : § ! FUNCTIONAL DESCRIPTION: 

: 1 § 1/ This routine checks if the volume in use is marked for dismount and 
: : ? 5 : } idle. If so, it completes the dismcunt. 

> 125 1 | CALLING SEQUENCE: 

3 ; $ 5 } : CHECK _DISMOUNT (ARG1) 

a 248 1 | INPUT PARAMETERS: 

3 ; 213 ; ARG] = address of unit control block for primary UCB 

: 131 318 1 | IMPLICIT INPUTS: 

3 ! § Baie : QUEVE_HEAD: queue header for ACP 

: 1 0516 1 | OUTPUT PARAMETERS: 

: 18 oe18 1 i ee 

: 1 0519 1 | IMPLICIT OUTPUTS: 

i 136 p35) i — 

: 140 05 é 1 | ROUTINE VALUE: 

Pa bathe 

: 123 0525 1 | SIDE EFFECTS: ; 

3 146 526 1! Volume dismounted if appropriate 

: «41465 527 1! 

3 166 528 1 !-- 

; (14 0529 «(1 

5 ice Bees BEGIN 

: 150 0333 BUILTIN 

3 13) 3287 TESTBITSC; 

; 135 0335 LINKAGE 

: «#4156 0536 DALLOC_DEV = JSB (REGISTER=4,REGISTER=5;) : 

s 335 0537 NOPRESERVE (3) 

3 126 538 PRESERVE (2,4,5) 

; 137 339 NOTUSED (6,7,8,9,10,11); 

: 159 541 EXTERNAL REGISTER 

; 160 b2%6 COMMON 3 

183 peed MAP 

; 188 rH ucB : REF BBLOCK; ' address of unit control block 
: 165 309 LOCAL 

3 196 368 ccB : REF BBLOCK, ' address of channel control block 
s 54 STS ' general status value 

: 168 330 LkSfs : VECTOR (6), | Cock status block 

3 1s? 5 ! address of mag tape volume entry 
3 179 23¢ UL OAD. ! flag to indicate unloading 
: 172 554 ORB =: REF BBLOCK, ' ORB address 


ES 
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UCBLIST : ! vector of ucb's allocated to volume set 
vcB : ' local address of vCB 


EXTERNAL 


10_CHANNEL : sestan channel for tape 1/0 
SCASGL_CURPCB =: REF BBLOCK ADDRESSING_MODE (GENERAL) 
QUEUE _READ : REF BBLOCK; ' address of ACP queue header 


EXTERNAL ROUTINE 
IOCSDALLOC_DMT : DALLOC_DEV wane ye (GENERAL), 


! deallocate device 
eer FREE PAGE =: COMMON_CALL, return free page to virtual mem pool 


AOA" 


PUPVPVSVSVSISVSISIN 


OCR_1006 ! Lock 1/0 data base mutex 
SEND-ERRLOG, 
UNLOCK . ! unlock 1/0 data base mutex 
DEALLOTATE, ' deallocate dynamic memory 
: !' get address of the CCB 


} First check if the volume is marked for dismount 


= ’ -BBLOCKCUCBCUCBSL_DEVCHAR], DEV$V_DMTJ 
RETURN; 
vCB = .UCBCUCBSL_VCB); ! pickup VCB address 


! The volume is marked for dismount. The remainder of the tests and the 
dismount bit twiddling must be done interlocked. 


LOCK_10DB(); 
SET_TPL (IPL$_SYNCH); 


! If a cancel 1/0 is pending we can not dismount the volume, the volume 
! will be check for dismount when the cancel 1/0 is completed. This steps 
! the crash caused by cancel and dismount happening while the ACP has a Q10 
with an completion AST outstanding to the volume. 
if _(-VCBLVCBSW_ TRANS EQL 1) AND (NOT .VCBCVCB$V_CANCELIO)) 

BEGIN 


! The volume is marked for dismount and idle. Mark all UCB’s with 
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POPMONOMENINININID 2 3 ee 


; 3 dismount in progress to stop all further activity. 
1 8 UCBLIST = BBLOCKC.VCBCVCBSL_RVT], RVTS$SL_UCBLST); 
et DECR wio. FROM .BBLOCKC.VCBCVCBSL_RVT], RVTSB_NVOLS] - 1 TO 0 DO 
5 O30? UCB = .UCBLISTC.NVOL]; ! UCB from RVT List 
$ 608 UCBCUCBSV_DISMOUNT) = 1; -. 
44 END; ; 
8 610 
9 0611 UNLOCK_IODB (); 
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: 61 

§ 1 gig ! Establish whether volumes are to be unloaded. The primary UCB 
3 ¢ oie contains the unload flag. 

; 4 $18 IF TESTBITSC (BBLOCK C.UCBLISTCO], UCBSV_UNLOADJ) 

3 5 61 THEN UNLOAD = 1 

3 : bes ELSE UNLOAD = 0; 

; 8 8 0 ' Loop through the UCB's again. For each one, send the dismount 
5 ip be 1 error log message and then unload the unit if it is online. 

: 241 06 : CCB = GET_CCB (.10_CHANNEL); 

5 tg Be 3 ? DECR WYO. FROM .BBCOCKC.VCBLVCBS$L_RVTJ, RVTSB_NVOLS] - 1 TO 0 DO 
3 246 Boss 4 UCB = .UCBLISTC.NVOLJ; ! UCB from RVT List 

3 “2 be ‘ 2 SEND_ERRLOG(O, .UCB); 

3; 247 0629 4 CCBCCCBSL_UCB) = .UCBLISTC.NVOLI; 

: 248 0630 ¢ IF .UNLOAD 

3 49 0631 4 THEN SQIOW(CHAN = .I10_ CHANNEL, FUNC = IO$_UNLOAD); 

; “9 B656 : SQIOW(CHAN = .JO_CHANNEL, FUNC = I0$_AVAICABLE); 

; 352 0634 4 ' If the UCB is not allocated, acquire the device lock so 

3 Sez tH ? that its value block can be written. 

s 229 0637 4 IF (LKSTS C1) = .UCB CUCBSL_LOCKID]) NEQ 0 

3; es 0638 4 AND .UCB CUCB$L_PIDJ EQC 0 

3 eH 0639 4 HEN 

: 258 0640 5 BEGIN 

: 259 P 0641 5 STS = SENQW (LKMODE = LCKSK_PWMODE, 

; 260 P peeg 5 LKSB = LKSTS, 

: 261 P 0643 5 EFN = EFN 

; 362 P 0644 5 FLAGS = LCK$M_CONVERT + LCKSM_SYNCSTS 

; 26 0645 5 + LCKSM_NOQUOTA) ; 

; 264 0646 5 IF NOT .STS 

: 265 0647 5§ OR NOT .LKSTS 

; 266 0648 5 THEN BUG_CHECK (XQPERR, FATAL, ‘Unexpected lock manager error'); 
3 sor 0649 4 END; 

: 268 0650 4 

: 269 0651 4 ! Now complete the dismount. Mark prinery unit and secondary 
: 270 0638 4 ' units dismounted and deallocate those units which should be 
: 271 0653 4 ! on dismount. 

: 27 0654 4 ! 

: 2 8932 4 ORB = .UCBCUCBSL_ORBI; 

3 a pee8 2 LOCK_I0DB (); 

: 76 0658 4 BBLOCKCUCBCUCBSL_DEVCHAR], DEVSV_MNT]) = 0; 

oi. ae 0659 4 BBLOCKCUCBCUCBSL_DEVCHAR], DEVS$V_DMTJ = 0; 

: 78 beet & BBLOCKLUCB ven Theenes » DEVSV_SWLJ = 0; 

3; e279 661 4 UCBCUCBSL_VCB) = 0; 

3 280 : 4 UCB UCBSV"D1SROUNT J = 0; 

: 281 6635 4 UCBLUCBSW_REFC] = ,UCBLUCBSW_REFC) - 1; 

: Ht 0664 4 ORBCORBSL_SYS_PROT) = 0; 

; 28 0665 4 ORBCORBSL-OWN-PROT) = 0; 

3 284 666 4 ORBCORBSL-GRP~PROT) = 0; 

: 285 0667 4 ORBLORB$L_WOR PROT) = 0; 

: 286 0668 4 ORBCORBSL-OWNER] = 0; 
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: 287 669 4 

; 288 0670 4 ! If the device lock exists, now demote it as approp jate (to CR if 
; 289 671 4 ' the device is not allocated, to EX otherwise). Clear the value 
; 290 pers 4 ' block if this is the final dismount. 

; 291 +94 4 ! 

:; 2 674 & 

; 29 0675 4 IF .LKSTS C1) NEQ O 

> 294 Bere 4 nag 

; 295 067 

; 296 0678 Beets = 0; 

; 297 0679 LKSTS = Q; 

: 298 88 0 é LKSTS = Q; 

3 44 be 1 LKSTS = Q; 

: 301 P peas 2 STS = SENQ (LKMODE = IF .UCB CUCB$L_PID] NEQ 0 

3 O P 0684 5 THEN LCK$K_EXMODE 

HY 0 P 0685 5 ELSE LCKSK— ~ERMODE, 

: 304 P 0686 5 LKSB = LKSTS, 

; 305 P 0687 5 EFN = EFN 

; 306 P 0688 5 FLAGS = LCK$M_CONVERT + LCKSM_CVTSYS 

: 07 P 0689 5 + LCKSM “SYNCST S + LCKSM_ -NOQUOTA + LCKSM_VALBLK 
; 308 0690 5 ); 

: $98 0691 5 IF NOT mee 

s 310 0692 5 OR NOT STS 

: $3 0693 5 THEN BUG CHECK (XQPERR, FATAL, ‘Unexpected lock manager error'); 
: 38 O69 me 

3 \ bee 2 } Call IOCSDALLOC_DMT routine to deallocate the device when appropriate. 
3; 316 0698 4 

; 17 0699 4 IOCSDALLOC_DMT (.SCHSGL_CURPCB, .UCB); 

s 3518 0700 4 

: 19 0701 4 UNLOCK_IODB (); 

ef a 

: 32 thie : Finally deallocate the volume set structures. 

: 24 0706 DEALLOCATE(. VCBCVCBSL_RVT]); 

; 2 344 DEALLOCATE(. VCBCVCBSL_MVLJ); 

3 7 0709 ! return volume virtual page 

3 8 0710 ! 

: 9 0711 WHILE 1 

3 0 orig dO 

: 1 713 4 GIN 

: 3 0714 4 IF REMQUE(.VCBCVCBSL_VPFLJ, PAGE) 

Hy iz 0715 4 THEN EX] LO P; 

; gris 4 RET_FREE _PAGE(. PAGE, TRUE); 

; 36 a4 wets 

3; 33S 0719 DEALLOCATE(.VCB); ' release the VCB 

4 38 0720 QUEUE _HEADCAQBSB_. MNTCNT] = .QUEUE _HEADLAGBSB MNTCNT] = 1; 

; 339 721 ND end of dismount processing 
3 0 7 ; LSE 

3 et y ; UNLOCK_I0DB(); 

3 rk 725 END; ! end of routine CHECK_DISMOUNT 
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Hy ee 
v04-000\ 


CHANNEL, SCH$GL_CURPCB 

IOCS$DACLOC_DMT 

T_ FREE PAGE, LOCK_10D8 
06, UNLOCK 1008 


TEXTRN SYS$QIOW, SYSSERNQW 
-EXTRN BUGS_XQPERR, SYSSENQ 


~PSECT S$LOCKEDC1$,NOWRT,2 


O7FC 00000 ENTRY CHECK DISMOUNT, Save R2,R3,R4,R5,R6,R7,R8,- ; 

35 06 AE 56 9900 su.2 eB, SP ; 

01 3a oA 05 £0 90009 BBs #5, 58(RO), 1$ : 
56 34 AO DO OO00F 1S: MOVL  52(RO), VCB ; 

—e BB bn ooot8 Sth: we. HB 

oe Re ba ge 2 

0198 3} 90021 28: BRW 21$ : 

F8 0B ag 05 £0 00024 3$: BBS #5, 11(VCB), 2% : 
5 20 ag DO 00029 MOVL 32(VCB), R3 : 

52 44 AS OF 00020 MOVAS  68(R3), UCBLIST : 

50 0B a3 9A 90031 MOV ZBL L1CR3) NVOL ; 

04 ac ; 6240 06 00037 4$: MOVE (ucBLIsT) CNVOLI, UCB : 

66 Al 10 88 00040 BISB2 #16, 102(R1) : 

FO 50 F4 00044 S$: SOBGEQ NVOL, 4$ : 

sa G9 08 Baer GRAES nap : 

05 64 AO Oc €5 0004 BBCC ns 100(RO), 6$ : 
59 01 D0 0094 MOVL a, UNLOAD ; 

96 D4 00059 68: CLRL —« UNLOAD : 

00006 CF DD 00058 7$: PUSHL  10_CHANNEL : 

00006 ¢F o1 FB 005 CALLS n. GET CC 

35 08 s 9A 00067 MOV ZBL 11(R3), NVOL 

04 ac oy 00 06 8$: MOVL (UcBL IST) CNVOLI. UCB : 
no OS: nT oe : 

; D4 079 CLRL : 

00006 CF 02 F 7B CALLS #2, SEND RRLOG : 

00 BE 6248 0D 0 89 MOVL  (UCBLISTJCNVOLJ, accB ; 

1 5 E 83 BLBC UNLOAD, 9 : 

—E 7 00 CLRQ = = ( SP) : 

7E 7¢ OOBA CLRQ. ss = (SP) : 

7E 7C€ 0008C CLROQ = (SP) : 
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; Routine Size: 


ooo 


J 16 
16-Sep-1984 02:10:21 
aati 1 9521838 
A 50 D 13¢ MOVL RO 
4 A €9 0013F BLBC 3E-s S$ 
4 04 AE +. 1 fae BLBS ikSfs, 15$ 
ooo. 14 .WORD  <BUG$_XQPERR!4> 
55 4 A D0 146A 15$:  MOVL UCB 
4 000000006 D 146 MOVL  SCHS$GL 
000000006 16 13 JSB 1OCSDA 
00006 CF FB 001 CALLS # 
2 F4 00160 16$: SOBGEQ NVO 
0 11 0016 BRB 18$ 
FF : 31 1 17$:  BRW as 
20 Ad DD 00168 18$: — PUSHL ( 
00006 CF 01 FB 016 CALLS #1, 
34 Ab DD 001 PUSHL  52¢ 
00006 CF 01 FB 0017 CALLS #1 
52 3¢ }6=—B6SCOOF:s«C00178 198 REMQUE 60 
0B 1D 0017C BVS 20$ 
8) PD 00180 PUSHt PAG 
00006 CF 35 FB O018e CALLS #2 
EF 11 0018 BRB § 
56 DD 00189 20$: — PUSHL 
00006 CF 01 FB 00188 CALLS #1 
50 00006 CF 00 00190 MOVL QUE 
mow 5 Sigma: Be 
00006 CF 00 FB 00199 21$: CALLS #0, UNLOCK_10DB 
04 0019E RET 


415 bytes, Routine Base: $LOCKEDC1$ + 0000 


END 
ELUDOM 


PSECT SUMMARY 
Bytes Attributes 
415 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, 


Library Statistics 


oueccese Symbols -------- Pages 
Total Loaded Percent Mapped 


cro 
oc 
Ow 
v 
oO 
zo 
2 
= 


PAGE 
2, RET_FREE_PAGE 
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Kk 16 
CHKD =Sep-1984 02:10:21  YAX-11_Bliss-32 v4.0-74 p 0 
viveeit 12-800-1 382 9S:18:5, — HaMa A pBbieScHe Ma O534 age 39 
;  _$255$DUA28:CSYSLIBILIB.L32;1 18619 45 0 1000 00:01.9 
COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:CHKDMO/OBJ=0BJ$:CHKDMO MSRC$:CHKDMO/UPDATE=(ENHS:CHKDMO) 
Size 


: 415 code + 0 data bytes 
Run Time: 00:13.5 


Elapsed Time: 00:34.8 
Lines/CPU Min: 3230 
Lexemes/CPU-Min: 24177 
pene Used: 181 pages 
Compilation Complete 
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